home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)mc.d64 / drill er_ir_ur.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  269 lines
  1. 2 REM ***GRAMMAR DRILL***
  2. 3 REM
  3. 4 REM
  4. 7 REM DRILL IN SPELLING WORDS WITH
  5. 9 REM *ER/IR/UR*
  6. 10 REM
  7. 11 REM PROGRAM DEVELOPED BY
  8. 13 REM JOE URSANO,SPRINGDALE PARK
  9. 14 REM ROAD, BRACEBRIDGE,ONTARIO
  10. 15 REM(null)
  11. 16 REM LINES 20 TO 510 SET UP AND
  12. 17 REM PRINT THE PROGRAM TITLE
  13. 18 POKE 53280,9:POKE53281,15
  14. 19 PRINT"[144]":REM SET CURSOR TO BLACK
  15. 20 PRINT"[147]"
  16. 21 REM(null)
  17. 24 FOR I=1TO25
  18. 25 PRINT TAB(7)"[191][146]";
  19. 30 GOSUB 500
  20. 40 NEXT
  21. 45 PRINT
  22. 50 FOR I=1TO5
  23. 60 PRINT TAB(31)"[191][146]"
  24. 70 GOSUB 500
  25. 80 NEXT
  26. 90 FOR I=31 TO 7 STEP-1
  27. 100 PRINTTAB(I)"[145][191][146]"
  28. 110 GOSUB 500
  29. 120 NEXT
  30. 130 FOR I=1TO5
  31. 140 PRINT TAB(7)"[145][145][191][146]"
  32. 150 GOSUB 500
  33. 160 NEXT
  34. 170 PRINT"ER/IR/UR"
  35. 180 PRINTTAB(14)"BY J. URSANO"
  36. 190 FOR Y=1TO3500:NEXT
  37. 200 PRINT"[147]"
  38. 299 REM(null)
  39. 498 REM (null)
  40. 499 GOTO 800
  41. 500 FOR L=1TO50:NEXT
  42. 510 RETURN
  43. 750 REM
  44. 760 REM
  45. 770 REM LINES 900 TO 998 ARE
  46. 780 REM INSTRUCTIONS FOR STUDENTS
  47. 785 REM
  48. 790 REM
  49. 800 PRINT:PRINT:PRINT
  50. 810 PRINTTAB(5)"THIS PROGRAMME WILL GIVE"
  51. 815 PRINTTAB(5)"YOU PRACTICE IN SPELLING"
  52. 820 PRINTTAB(5)"WORDS THAT HAVE THE SOUND OF"
  53. 830 PRINTTAB(10)"ER[146]"
  54. 840 PRINTTAB(15)"IR[146]"
  55. 845 PRINTTAB(20)"UR[146]"
  56. 850 PRINT"PRESS  ANY KEY[146]  TO GO ON"
  57. 860 GET K$:IF K$=""THEN 860
  58. 870 PRINTCHR$(147)
  59. 900 PRINT"TYPE THE MISSING LETTERS"
  60. 910 PRINT"TO COMPLETE THE WORD."
  61. 920 PRINT"EXAMPLE:"
  62. 925 PRINT "[163][163][163][163][163][163][163][163]"
  63. 930 PRINTTAB(12)"WINT..WOULD BE WINTER[146]"
  64. 940 PRINT"TH..ST WOULD BE THIR[146]ST"
  65. 950 PRINT"DIST..B WOULD BE DISTUR[146]B"
  66. 998 PRINTTAB(5)"PRESS  ANY KEY[146]  TO GO ON"
  67. 999 GET K$:IF K$=""THEN 999
  68. 2000 REM
  69. 2001 REM
  70. 2005 REM PUTTING DATA INTO ARRAY
  71. 2010 REM A$=WORD WITH BLANK(F..LD)
  72. 2012 REM B$=CORRECT ANSWER(IE OR EI)
  73. 2014 REM C$=CORRECT WORD(FIELD)
  74. 2016 REM P1 IS SIZE OF ARRAY
  75. 2018 REM
  76. 2019 P1=103
  77. 2020 DIMA$(P1),B$(P1),C$(P1)
  78. 2030 FOR I=1TOP1
  79. 2040 READA$(I),B$(I),C$(I)
  80. 2050 NEXT I
  81. 2059 REM
  82. 2060 REM  RANDOMIZE AND PRESENT WORDS
  83. 2061 REM (null)
  84. 2065 REM AND SET COUNTER AT 0
  85. 2070 REM
  86. 2075 REM
  87. 2080 I=0:CO=0:N=0
  88. 2090 I=INT(P1*(RND(TI))+1)
  89. 2100 PRINT"[147]"
  90. 2110 CO=CO+1
  91. 2120 PRINT"",TAB(13)
  92. 2130 PRINT""A$(I)
  93. 2140 PRINT"[145]",TAB(18)
  94. 2145 REM CHECK TO SEE THAT ANSWER IS
  95. 2147 REM CORRECT
  96. 2148 REM
  97. 2149 REM (null)
  98. 2150 GETD$:IFD$=""THEN2150
  99. 2160 GETE$:IFE$=""THEN2160
  100. 2165 Z$=D$+E$
  101. 2170 PRINT"";Z$
  102. 2180 IF D$+E$=B$(I) THEN 2220
  103. 2200 PRINT"NO,THE ANSWER IS ";C$(I)
  104. 2210 GOTO 2240
  105. 2220 N=N+1
  106. 2224 REM STUDENT OPTION TO CONTINUE
  107. 2226 REM OR TO CHECK SCORE
  108. 2228 REM
  109. 2230 PRINT"WELL DONE!"
  110. 2240 PRINT "PRESS  SPACE BAR[146]  TO GO ON"
  111. 2250 PRINT "PRESS  S[146]  TO SEE S[146]CORE"
  112. 2280 GET R$:IFR$=""THEN2280
  113. 2290 IF R$=CHR$(32) THEN 2090
  114. 2300 IF R$="S" THEN 5000
  115. 2315 GOTO 2280
  116. 2505 REM
  117. 2510 REM
  118. 3000 REM DATA STATEMENTS BEGIN
  119. 3001 REM(null)
  120. 3005 REM
  121. 3006 REM
  122. 3099 REM (null)
  123. 3100 DATA"    F..N","ER","FERN[146]"
  124. 3110 DATA"WHISP..","ER","WHISPER[146]"
  125. 3120 DATA"    T..M","ER","TERM[146]"
  126. 3130 DATA"    J..K","ER","JERK[146]"
  127. 3140 DATA"    H..","ER","HER[146]"
  128. 3150 DATA"    S..F","ER","SERF[146]"
  129. 3160 DATA"    V..B","ER","VERB[146]"
  130. 3170 DATA"    H..D","ER","VERB[146]"
  131. 3180 DATA"    M..CURY","ER","MERCURY[146]"
  132. 3190 DATA"    P..K","ER","PERK[146]"
  133. 3200 DATA"    P..T","ER","PERT[146]"
  134. 3210 DATA"   TH..ST","IR","THIRST[146]"
  135. 3220 DATA"  SQU..M","IR","SQUIRM[146]"
  136. 3230 DATA"  SQU..T","IR","SQUIRT[146]"
  137. 3240 DATA"   SK..MISH","IR","SKIRMISH[146]"
  138. 3250 DATA" CONF..M","IR","CONFIRM[146]"
  139. 3260 DATA"    B..THDAY","IR","BIRTHDAY[146]"
  140. 3270 DATA"     ..CHIN","UR","URCHIN[146]"
  141. 3280 DATA"    F..NISH","UR","FURNISH[146]"
  142. 3290 DATA" DIST..B","UR","DISTURB[146]"
  143. 3300 DATA"  SAT..N","UR","SATURN[146]"
  144. 3310 DATA"    S..PLUS","UR","SURPLUS[146]"
  145. 3320 DATA"  SAT..DAY","UR","SATURDAY[146]"
  146. 3330 DATA"    H..MIT","ER","HERMIT[146]"
  147. 3340 DATA"THUND..","ER","THUNDER[146]"
  148. 3350 DATA" SIFT..","ER","SIFTER[146]"
  149. 3360 DATA" SING..","ER","SINGER[146]"
  150. 3370 DATA" FING..","ER","FINGER[146]"
  151. 3380 DATA" LING..","ER","LINGER[146]"
  152. 3390 DATA"MONST..","ER","MONSTER[146]"
  153. 3400 DATA" HUNT..","ER","HUNTER[146]"
  154. 3410 DATA"   WH..L","IR","WHIRL[146]"
  155. 3420 DATA"    F..ST","IR","FIRST[146]"
  156. 3430 DATA"   SK..T","IR","SKIRT[146]"
  157. 3440 DATA"   SM..K","IR","SMIRK[146]"
  158. 3450 DATA"   SW..L","IR","SWIRL[146]"
  159. 3460 DATA"   TW..L","IR","TWIRL[146]"
  160. 3470 DATA"    C..L","UR","CURL[146]"
  161. 3480 DATA"   CH..N","UR","CHURN[146]"
  162. 3490 DATA"   CH..CH","UR","CHURCH[146]"
  163. 3500 DATA"   BL..T","UR","BLURT[146]"
  164. 3510 DATA"    B..ST","UR","BURST[146]"
  165. 3520 DATA"WHISK..","ER","WHISKER[146]"
  166. 3530 DATA" TIMB..","ER","TIMBER[146]"
  167. 3540 DATA" SILV..","ER","SILVER[146]"
  168. 3550 DATA"    P..MIT","ER","PERMIT[146]"
  169. 3560 DATA"    P..HAPS","ER","PERHAPS[146]"
  170. 3570 DATA"SHELT..","ER","SHELTER[146]"
  171. 3580 DATA" LANT..N","ER","LANTERN[146]"
  172. 3590 DATA" TEND..","ER","TENDER[146]"
  173. 3600 DATA"  ENT..","ER","ENTER[146]"
  174. 3610 DATA"   ST..","IR","STIR[146]"
  175. 3620 DATA"    B..CH","IR","BIRCH[146]"
  176. 3630 DATA"   CH..P","IR","CHIRP[146]"
  177. 3640 DATA"   SH..T","IR","SHIRT[146]"
  178. 3650 DATA"   TH..D","IR","THIRD[146]"
  179. 3660 DATA"    B..TH","IR","BIRTH[146]"
  180. 3670 DATA"   SP..N","UR","SPURN[146]"
  181. 3680 DATA"    S..F","UR","SURF[146]"
  182. 3690 DATA"    T..N","UR","TURN[146]"
  183. 3700 DATA"   BL..","UR","BLUR[146]"
  184. 3710 DATA"    H..T","UR","HURT[146]"
  185. 3720 DATA"    L..K","UR","LURK[146]"
  186. 3730 DATA"    H..L","UR","HURL[146]"
  187. 3740 DATA"   SP..","UR","SPUR[146]"
  188. 3750 DATA"   SL..","UR","SLUR[146]"
  189. 3760 DATA" NUMB..","ER","NUMBER[146]"
  190. 3770 DATA" MAST..","ER","MASTER[146]"
  191. 3780 DATA" TEMP..","ER","TEMPER[146]"
  192. 3790 DATA" WINT..","ER","WINTER[146]"
  193. 3800 DATA" SIST..","ER","SISTER[146]"
  194. 3810 DATA"  UND..","ER","UNDER[146]"
  195. 3820 DATA"   ST..N","ER","STERN[146]"
  196. 3830 DATA"    P..CH","ER","PERCH[146]"
  197. 3840 DATA"    S..","IR","SIR[146]"
  198. 3850 DATA"    B..D","IR","BIRD[146]"
  199. 3860 DATA"    F..M","IR","FIRM[146]"
  200. 3870 DATA"    D..T","IR","DIRT[146]"
  201. 3880 DATA"    G..L","IR","GIRL[146]"
  202. 3890 DATA"    C..","UR","CUR[146]"
  203. 3900 DATA"    B..N","UR","BURN[146]"
  204. 3910 DATA"    T..N","UR","TURN[146]"
  205. 3920 DATA"    C..B","UR","CURB[146]"
  206. 3930 DATA"    F..THER","UR","FURTHER[146]"
  207. 3940 DATA"FURTH..","ER","FURTHER[146]"
  208. 3950 DATA"    M..DER","UR","MURDER[146]"
  209. 3960 DATA" MURD..","ER","MURDER[146]"
  210. 3970 DATA"    P..SE","UR","PURSE[146]"
  211. 3980 DATA"    N..SE","UR","NURSE[146]"
  212. 3990 DATA"    V..SE","ER","VERSE[146]"
  213. 4000 DATA" BETT..","ER","BETTER[146]"
  214. 4010 DATA" DEEP..","ER","DEEPER[146]"
  215. 4020 DATA" MILL..","ER","MILLER[146]"
  216. 4030 DATA" HAMM..","ER","HAMMER[146]"
  217. 4040 DATA" DINN..","ER","DINNER[146]"
  218. 4050 DATA"PAINT..","ER","PAINTER[146]"
  219. 4060 DATA" SUMM..","ER","SUMMER[146]"
  220. 4070 DATA"SLEEP..","ER","SLEEPER[146]"
  221. 4080 DATA" BITT..","ER","BITTER[146]"
  222. 4090 DATA"  UPP..","ER","UPPER[146]"
  223. 4100 DATA"FLUTT..","ER","FLUTTER[146]"
  224. 4110 DATA"TEACH..","ER","TEACHER[146]"
  225. 4120 DATA"   CL..K","ER","CLERK[146]"
  226. 4130 DATA"    N..VE","ER","NERVE[146]"
  227. 4900 REM
  228. 4910 REM
  229. 4920 REM LINES 5000-10110 GIVES THE
  230. 4930 REM STUDENT HIS SCORE AND
  231. 4940 REM CALCULATES HIS PER CENT.
  232. 4950 REM HE IS THEN GIVEN THE OPTION
  233. 4960 REM OF STARTING FRESH OR OF
  234. 4970 REM LEAVING THE PROGRAM
  235. 4980 REM
  236. 4981 REM (null)
  237. 4990 REM
  238. 5000 PRINT"[147]"
  239. 5010 PRINT"YOU GOT"N"CORRECT OUT OF"CO
  240. 5020 PRINT"WHICH IS";INT(N/CO*100+.5)"%"
  241. 10000 PRINT"WOULD YOU LIKE TO TRY AGAIN?(YES/NO)"
  242. 10005 INPUT A$:REM ANSWER
  243. 10010 IF LEFT$(A$,1)="Y" THEN RUN 2019
  244. 10015 PRINT"[147]"
  245. 10016 REM (null)
  246. 10017 REM
  247. 10018 REM
  248. 10019 REM THE BALANCE OF THE PROGRAM
  249. 10020 REM PRINTS A HAPPY FACE WHICH
  250. 10021 REM REMAINS ON THE SCREEN UNTIL
  251. 10022 REM ANY KEY IS DEPRESSED.
  252. 10023 REM
  253. 10024 REM
  254. 10025 PRINT""
  255. 10032 REM(null)
  256. 10050 PRINTTAB(14)"    [209][209][209]"
  257. 10060 PRINTTAB(14)"  [209][209]   [209][209]"
  258. 10070 PRINTTAB(14)" [209]  * *  [209]"
  259. 10080 PRINTTAB(14)"[209]    [194]    [209]"
  260. 10090 PRINTTAB(14)"[209]         [209]"
  261. 10100 PRINTTAB(14)" [209] [205][164][164][164][206] [209]"
  262. 10110 PRINTTAB(14)"  [209]     [209]"
  263. 10120 PRINTTAB(14)"   [209][209][209][209][209]"
  264. 10300 PRINT"OKAY, THANK YOU FOR PLAYING"
  265. 10310 PRINT"AND HAVE A HAPPY ER/IR/UR[146] DAY."
  266. 10320 GET J$:IF J$=""THEN 10320
  267. 10340 PRINT"[147]"
  268. 10341 END
  269.